home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Libris Britannia 4
/
science library(b).zip
/
science library(b)
/
PROGRAMM
/
DB_CLIPP
/
2838B.ZIP
/
MDS2.ARC
/
FLOW.SCR
< prev
next >
Wrap
Text File
|
1989-03-14
|
5KB
|
90 lines
1,30,0,0,0,2,7,1,0,0,0,0,0,1,0,0,"~C O N T R O L S:"
3,1,0,0,0,1,7,1,0,0,0,0,0,36,0,0,"┌─────────────────────────────────┐:"
4,1,0,0,0,1,7,1,0,0,0,0,0,25,0,0,"│ EMPLOYEE │:"
5,1,0,0,0,1,7,1,0,0,0,0,0,36,0,0,"│ │:"
5,39,0,0,0,2,7,4,0,0,0,0,0,40,0,0,"┌─────────────────────────────────────┐:"
6,1,4,0,0,1,7,1,0,0,0,0,420,2,0,0,"│ EMP NO:"
"","",""
6,22,0,0,0,1,7,1,0,0,0,0,0,15,0,0,"(1234) │:"
6,39,0,0,0,2,7,4,0,0,0,0,0,1,0,0,"│CONTROLS define the functionality of │:"
7,1,0,0,0,1,7,1,0,0,0,0,0,36,0,0,"│ │:"
7,39,0,0,0,2,7,4,0,0,0,0,0,1,0,0,"│the frame (menu, input, report), and │:"
8,1,10,0,0,1,7,1,0,0,0,0,422,2,0,0,"│ ENAME.:"
"","",""
8,22,0,0,0,1,7,1,0,0,0,0,0,1,0,0,"(JOHNSON) │:"
8,39,0,0,0,2,7,4,0,0,0,0,0,1,0,0,"│the interconnections (relationships) │:"
9,1,0,0,0,1,7,1,0,0,0,0,0,36,0,0,"│ │:"
9,39,0,0,0,2,7,4,0,0,0,0,0,1,0,0,"│between the frames. This is the heart│:"
10,1,9,0,0,1,7,1,0,0,0,0,432,2,0,0,"│ JOB...:"
"","",""
10,22,0,0,0,1,7,1,0,0,0,0,0,1,0,0,"(ANALYST) │:"
10,39,0,0,0,2,7,4,0,0,0,0,0,1,0,0,"│of the application. │:"
11,1,0,0,0,1,7,1,0,0,0,0,0,36,0,0,"│ │:"
11,39,0,0,0,2,7,4,0,0,0,0,0,40,0,0,"│~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ │:"
12,1,4,0,0,1,7,1,0,0,0,0,442,2,0,0,"│ MGR...:"
"","",""
12,22,0,0,0,1,7,1,0,0,0,0,0,15,0,0,"(9876) │:"
12,39,0,0,0,2,7,4,0,0,0,0,0,5,0,0,"│~~~~The screen below demonstrates how│:"
13,1,0,0,0,1,7,1,0,0,0,0,0,36,0,0,"│ │:"
13,39,0,0,0,2,7,4,0,0,0,0,0,1,0,0,"│the Controls are specified for frame │:"
14,1,3,0,0,1,7,1,0,0,0,0,452,2,0,0,"│ PROJ NO:"
"","",""
14,22,0,0,0,1,7,1,0,0,0,0,0,15,0,0,"(101) │:"
14,39,0,0,0,2,7,4,0,0,0,0,0,1,0,0,"│EMP of our sample model. │:"
15,1,0,0,0,1,7,1,0,0,0,0,0,36,0,0,"│ --------------------------------│:"
15,39,0,0,0,2,7,4,0,0,0,0,0,40,0,0,"└─────────────────────────────────────┘:"
16,1,0,0,0,1,7,1,0,0,0,0,0,20,0,0,"│ A-dd, V-iew, N│:"
17,1,1,0,0,1,7,1,0,0,0,0,464,2,0,0,"│ OPTION:"
"","",""
17,21,0,0,0,1,7,1,0,0,0,0,0,0,0,0,"E-rase, D-upli│:"
18,1,0,0,0,1,7,1,0,0,0,0,0,36,0,0,"└─────────────────────────────────┘:"
22,54,0,0,0,1,0,7,0,0,0,0,0,1,0,0,"~Press PgDn to continue.:"
23,29,0,0,0,2,7,1,0,0,0,0,0,1,0,0,"~C O N T R O L S (Cont'd):"
25,1,0,0,0,1,7,1,0,0,0,0,0,36,0,0,"┌─────────────────────────────────┐:"
25,40,0,0,0,2,7,4,0,0,0,0,0,39,0,0,"┌────────────────────────────────────┐:"
26,1,0,0,0,1,7,1,0,0,0,0,0,25,0,0,"│ EMPLOYEE │:"
26,40,0,0,0,2,7,4,0,0,0,0,0,1,0,0,"│IF the user enters 'A' into field │:"
27,1,0,0,0,1,7,1,0,0,0,0,0,36,0,0,"│ │:"
27,40,0,0,0,2,7,4,0,0,0,0,0,1,0,0,"│OPTION, THEN model execution will │:"
28,1,4,0,0,1,7,1,0,0,0,0,486,2,0,0,"│ EMP NO:"
"","",""
28,22,0,0,0,1,7,1,0,0,0,0,0,15,0,0,"(1234) │:"
28,40,0,0,0,2,7,4,0,0,0,0,0,1,0,0,"│proceed to ADD a record into frame │:"
29,1,0,0,0,1,7,1,0,0,0,0,0,36,0,0,"│ │:"
29,40,0,0,0,2,7,4,0,0,0,0,0,1,0,0,"│EMP. If X is entered, control will │:"
30,1,10,0,0,1,7,1,0,0,0,0,496,2,0,0,"│ ENAME.:"
"","",""
30,22,0,0,0,1,7,1,0,0,0,0,0,1,0,0,"(JOHNSON) │:"
30,40,0,0,0,2,7,4,0,0,0,0,0,1,0,0,"│be returned to previous frame. │:"
31,1,0,0,0,1,7,1,0,0,0,0,0,36,0,0,"│ │:"
31,40,0,0,0,1,0,7,0,0,0,0,0,39,0,0,"┌────────────────────────────────────┐:"
32,1,9,0,0,1,7,1,0,0,0,0,506,2,0,0,"│ JOB...:"
"","",""
32,22,0,0,0,1,7,1,0,0,0,0,0,1,0,0,"(ANALYST) │ ┌─:"
32,40,0,0,0,1,0,7,0,0,0,0,0,1,0,0,"│IF OPTION=A THEN GOTO ADD EMP │:"
33,1,0,0,0,1,7,1,0,0,0,0,0,39,0,0,"│ │ ├─:"
33,40,0,0,0,1,0,7,0,0,0,0,0,1,0,0,"│IF OPTION=V THEN GOTO VIEW EMP │:"
34,1,4,0,0,1,7,1,0,0,0,0,516,2,0,0,"│ MGR...:"
"","",""
34,18,0,0,0,1,7,1,0,0,0,0,0,22,0,0,"┌────────────────┼─┼─:"
34,40,0,0,0,1,0,7,0,0,0,0,0,1,0,0,"│IF OPTION=N THEN GOTO VIEW NEXT EMP │:"
35,1,0,0,0,1,7,1,0,0,0,0,0,39,0,0,"│ │ │ ├─:"
35,40,0,0,0,1,0,7,0,0,0,0,0,1,0,0,"│IF OPTION=E THEN GOTO DELETE EMP │:"
36,1,3,0,0,1,7,1,0,0,0,0,526,2,0,0,"│ PROJ NO:"
"","",""
36,18,0,0,0,1,7,1,0,0,0,0,0,22,0,0,"│ (101) │ └─:"
36,40,0,0,0,1,0,7,0,0,0,0,0,1,0,0,"│IF OPTION=D THEN GOTO DUPLICATE EMP │:"
37,1,0,0,0,1,7,1,0,0,0,0,0,36,0,0,"│ ---------------│----------------│:"
37,40,0,0,0,1,0,7,0,0,0,0,0,1,0,0,"│IF OPTION=X THEN RETURN │:"
38,1,0,0,0,1,7,1,0,0,0,0,0,20,0,0,"│ │ A-dd, V-iew, N│:"
38,40,0,0,0,1,0,7,0,0,0,0,0,39,0,0,"└────────────────────────────────────┘:"
39,1,1,0,0,1,7,1,0,0,0,0,540,2,0,0,"│ OPTION:"
"","",""
39,13,0,0,0,1,7,1,0,0,0,0,0,8,0,0,"────┘ E-rase, D-upli│:"
40,1,0,0,0,1,7,1,0,0,0,0,0,36,0,0,"└─────────────────────────────────┘:"
41,1,0,0,0,2,0,7,0,0,0,0,0,0,0,0,"Here are some control statements from frame TASKRPT:"
42,1,0,0,0,2,0,7,0,0,0,0,0,0,0,0,"SORT TASK.PROJ NO/G, TASK.TASK NO :"
43,1,0,0,0,2,0,7,0,0,0,0,0,0,0,0,"SELECT TASK.PROJ NO = PROJ.PROJ NO :"
44,1,0,0,0,2,0,7,0,0,0,0,0,0,0,0,"COMPUTE CHARGE = TASK.HOURS * EMP.SAL/(22*8) :"
44,56,0,0,0,1,0,7,0,0,0,0,0,1,0,0,"~Press ─┘ to continue.:"